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EDITORIAL 


Ce mois-ci JEDI lance un pavé dans la 
mare des programmes, un pavé de taille puisque 
nous diffusons le programme KERMIT, écrit en 
langage C. Cette diffusion est faite en colla- 
boration avec l'association O.U.F. (Ordina- 
teurs Utilisateurs France) dont Mr Bill GRAHAM 
est le président. 


KERMIT est disponible sur la base de 
de données de O.U.F. au standard V21 (300 bds) 
en composant le (1) 45.31.57.25. 


Pourquoi KERMIT et qu'est-ce qu'il re- 
présente ? 11 faut rappeler que lors d'une li- 
aison télématique, des erreurs de transmission 
peuvent survenir. Si celles-ci sont sans gra- 
vité pour une information sous forme de texte, 
il n'en est pas de même pour un programme en 
code objet destiné à être exécuté. Ainsi, il 
est nécessaire de faire appel à des procédures 
de vérifications et de corrections. Jusqu'à 
présent, c'était le programme XMODEM qui réa- 


lisait cette tâche pour les Systèmes 8 bits 
bits sous CP/M. 
KERMIT permet la liaison au même proto- 


cole que XMODEM, mais appliqué aux systèmes 16 
bits de type IBM et autres sous UNIX. Grâce à 
un programme de référence rigoureux écrit en 
langage C, il s'applique à une très large gam- 
me de matériel (lourd, tant pis pour les pe- 
tits systèmes) allant des Systèmes IBM à VAX, 
permettant une transmission sûre des fichiers 
depuis les systèmes 8 vers 16 bits et 16 bits 
entre eux. 
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de toute reproduction à des fins commerciales, 
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bas de page, 


Îl est demandé de ne 
et dans les autres cas, 


pas masquer les 
de citer l'ASSOCIATION JEDI. Pour tout 


À part ce programme fleuve, nous conti- 
nuons notre série sur MUMPS et sur LPB. Pour 
les amateurs de FORTH, ne soyez pas décus, re- 
portez-vous au mensuel MICRO-SYSTEMES de ce 
mois, nous avons aussi dense que KERMIT, mais 
écrit en FORTH: Composeur VIDEOTEX pour TO7 et 
T07/70. A signaler que ce programme est en soi 
un petit record du monde, car, à notre con- 


naissance, il est le premier programme FORTH 
de cette taille à étre diffusé dans la presse 
informatique en dehors des articles inter- 
clubs américains. 

Et pour finir, un grand merci à tous 
ceux qui nous ont envoyé leurs articles pour 
les numéros à venir: un article sur PILOT et 


des trucs pour HRX et JUPITER ACE en décembre ; 
la virgule flottante en 83-Standard et une 
analvse détaillée de la vectorisation pour 
tous standards en janvier; fBASE I, un pro- 
gramme de gestion de fichier en FORTH pour 
tous systèmes. Ceci pour vous mettre l'eau à 
la bouche. Et nous laisserons de 1a place pour 
les articles sur PASCAL, MUMPS, COBOL, LISP 
(si, si!!), et...FUTURLOG (non ?7?). Etonnant 
n'est-ce pas 


traduction du contenu de ce magazine, totale 
les formes est vivement encouragée, à l'exclusion 


Dans le cas de reproduction 
références inscrites en 


renseignement, vous pouvez nous contacter en écrivant à l'adresse suivante: 


ASSOCIATION JEDI 8, rue Poirier de Narçay 75014 PARIS 
Tel: (1) 45.42.88.90 (de 10h à 18h) 
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MUMPS 5ème PARTIE par Yannick LEGRAS 


LATI INTRODUCTION AUX COMMANDE S 


A) Qu'est ce qu’une commande ? 


Considérons les trois phrases suivantes : 


: 
arrêtez ! 

ouvrez la parte ! 

mettez un livre sur la table ! 


Chaque phrase est un ordre qui indique à quelqu'un de faire quelque Chase, 
En parlant à certaines personnes nous adoucissons ces erdres en disant 
"S'il vous plait, quurez la porte !". Mails quand nous nous exprimans de la 
sarte, l‘ordre devient plus ambigu. nG‘i} vous plait, arrêtez !" peut être 
tout à fait différent de l’ordre “arrêtez !", selon les circonstances. 


Lorsqu‘on communique avec un ordinateur, nous devons lui donner des ordres 
aussi claire que possible fsoit, des ardres directs et peut &tre impol:s) 
pour nous faire comprendre. Par chance, la machine préfère cette forme 
d'expression, Les premieres phrases citées sont sans ambiquité, si nous 
savons qu’il n’y a qu'une seule porte, un seul livre et une seule table. La 
premiere phrase est un long mot qui indique simplement l’ordre de faire 
quelque chose. Dans 1e second cas, on demande à quelqu'un de faire quelque 
chose en se servant d’autre chose. Enfin, dans la troisième phrase, nous 
demandons % quelqu'un d'accomplir quelque chose en 5e servant d'autre chose, 
11 serait possible d'inventer des ordres beaucoup plus complexes mais, pour 
le moment, ces trois exemples suffisent, ' 


Le langage MUMPS permet de passer des ordres identiques à ceux de notre 
langage courant, Certaines commandes se composent d'un seul mot (ex, Ta 
commande halt). D’autres commandes demandent à l'ordinateur d'exécuter une 
action sur un ou plusieurs Éléments. Ces derniers seront les arguments de 

la commande (verbe et complement(s)). Si la commande est suivie de plusieurs 


arguments, ceux-ci seront séparés par une virgule. 


B) La.commande SET 


Cet ordre indique à MUMPS qu’il doit attribuer une valeur à une variable 
(contenu/contenant). Exemples : 


SET X=3 le contenu de X est égal à 3 
SET A="2 VELOS",B="3 MOTOS" 


Dans le dernier exemple, un seul verbe a été mentionné, mais deux actions 
ont ête eMectuées. Soit, l'attribution 3 Ja variable À du contenu “2 VELOS" 
et à B le contenu "3 MOTOS". I} est à noter que si les variables À et B 
n'existaient pas, elles sont automatiquement créées. Si une de ces variables 
existait deja, c’est son contenu qui sera changé. Si, par exemple, X avait 
déja été défini avec un contenu égal À "ABC", après l'exécution de l’ordre 
SET X=3, son contenu devient 3. Bien entendu, on peut également affecter à 
une variable Île résultat d’un calcul, Exemple : SET f=X+7, le contenu de Ÿ 
est Égal a 19. N'oubliez pas que MUMPS ne fait pas de difference entre les 
valeurs alphanumériques et les valeurs numériques. $i X n'avait pas été 
défini au préalable, MUMPS enverrait un message d'erreur. D'autre part, Îles 


opérateurs de concaténation peuvent Également etre utilisés, Exemple : 


SET NOM="PERSONNE" ,TITRE="MON NOM EST "NOM 


Une autre utilisation du verbe SET permet, grâce À sa formulation, de donner 
à plusieurs variables, le meme contenu. Exemple : 


SET (X,Y,2)=28 y chacune des variables X, Ÿ, 2 contient la 
valeur ?4 


Le dernier cas d’utilisation de SET peut être le suivant : 


SET X=5,Y=2,2=XKY ,WeXDY 
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Dans cet exemple, * aura pour valeur 5, Ÿ sera égal à 2 et 2 le résultat de 
leur multiplication, c'est à dire 18. Et W aura la valeur vraie, à savoir de, 
puisque la dernière expression X)Y est juste, Il faut remarquer, que chaque 
argument est Évalué de gauche à droite. 


Co La commande SET $PIECE 


La révision de 1982 permet d'utiliser la commande SET en conjonction avec la 
fonction $PIECE pour définir ou redéfinir le segment d'une variable, Par 
exemple : : 


SET MOIS="30/12/1695" ,#PIECEMOIS,"/" ,2)="q{" 


Le nouveau contenu de la variable MOIS est maintenant "34/81/1695". 
Si vous aviez des problèmes de compréhension, reportez-vous au paragraphe 
traitant la fonction $PIECE. 


Di 


La commande KILL 


Cet ordre permet de supprimer une variable gréalablement définie par la 
commande GET, On peut l'utiliser de différentes façons : Avec un seul 
argument, KILL supprime la variable mentionnée ; suivie de plusieurs 
arguments séparés par des virgules, KILL supprime les variables citées ; 
sans argument, elle enlève toutes lee variables définies au préalable, 
Exemples : 


ordre d'exécution effet produit 


KILL À variable À supprimée 
KILL B,C B et C supprimées 
KILL toutes les variables 


definies sont supprimées 


Une autre formulation de l'ordre KILL est la suivante : KILL (A,B,C) s dans 
ce cas, toutes Îles variables autres que À,R,C sont supprimées, Donc, 4 Bet 
C sont “anseruées, 


Attention ! KILL CA),(R) supprime toutes les variables puisque cette 
formulation équivaut à : KILL ‘A) ; donc la variahle B est enlevée et 
KILL {83 enlbve toutes les variables sauf B mais, B n'existe déja plus. 


E° 


La fonction $SELECT 


Cette fonction spéciale retourne la valeur de la première expression situêe 
la plus à gauche dans 6a liste d'arguments dont l'expression Équivalente est 
vérifiée, Chaque argument de 1a fonction $SELECT est une paire d'expressions 
separées par deux points (13, La partie gauche de la paire est une variable 
logique et la partie droite peut etre n'importe quelle expression, Pour 
illustrer ceci, considérons la situation suivante : 


Az] ; B=2 ; C=3 


SET RESULTAT=SSELECT ADR: 1 ,4=B:2,4%B:3) 


SSELECT analyse la premiere expression de chaque argument, de gauche à 
droite. Lorsqu'elle trouve une expression vraie c'est à ce moment , et 
seulement à cet instant précis, que la seconde expression est évaluée comme 

# : : 4: # 
résultat. Puisque, dans notre exemple À est pius petit que B ; qu‘il n'est 
pas égal à la variable B ; la troisième expression, qui a pour valeur 3, est 
prise en compte et la Valeur 3 est affectée à la variable RESULTAT. 


La fonction $SELECT peut être Également utilisée en dernier ressort, dans Île 
cas où tous les autres critères sont faux, alors la valeur par défaut est 
retournée, Gardons les mêmes variables et examinons l'exemple ci-dessous : 


SET RESULTAT=#SELECT(A=B:4,A=C:3,1:8) 
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Lorsque la machine ne pourra pas exécuter un ordre correctement, un message 
d'erreur explicite sera envoyé à l'utilisateur. Le contenu des messages 
peuvent varier d'une machine à l'autre. 


Maintenant, examinons quelques exemples supplémentaires d'utilisation de la 
fonction #SELECT avec Îles variables précitées : 


code d‘execution yaleur produite 


SET RESULTAT=#SELECT (A2B:1,42C:2,4%B:3) ä 


SET RESULTAT=SSELECT (A=B:1,B=C:2,A=C:3) erreur 

SET RESULTAT=3SELECT A=B:2%C ,A=C:A+B, 1 :0) 8 

SET RESULTATA=#SELECT (A)B:A ,A#B:C,AXC:B) 3 {yualeur de ©) 
SET RESULTAT=#SELECT (4=C:"LBl" AkCI"LR2", LE LB") "LB" 


Dans le dernier exemple deux cas sont vrais, mais $SELECT choisit le premier 
cas vrai qu'il rencontre, l'évaluation Étant réalisée de la gauche vers 1a 


droite. 


Fi la commande WRITE avec contrôle de format possible) 


Nous avons déja examiné une commande associée à une fonction. Maintenant, 
voyons une commande "type" et certaines de ses options. La commande WRITE 
est l'une des deux commandes principales d‘'entrée/sortie, Elle permet de 
visualiser une chaîne de caractères sur la console de l'utilisateur. Exemple 


WRITE "GEORGES WASHINGTON TRAVERSAIT LE POTOMAC" 
Cette commande reproduit la même phrase eur l'écran de l'utilisateur. 


Si nous voulions nous servir de MUMPS comme d'une calculette, il suffirait 
d'écrire, par exemple : 


WRITE 2*3+4," ",28+(28*12/188) 


Le resultat affiché à} l’ecran sera le suivant : 


19 22.4 


Bien entendu, nous pouvons utiliser des variables dans la commande WRITE, Si 


X a Êté defini auparavant (X=3), on peut imaginer l'exemple suivant : 


WRITE "la valeur de X est : ",X 


Le résultat affiché à l'écran sera le suivant : 


la valeur de X est : 3 


Dans ce cas, puisque À n'est pas égal aux variables B et C, la valeur 
attribuée à la variable RESULTAT est 4 (option par defaut), La fonction doit 
toujours avoir un argument vrai, sinon une erreur sera e6mise, 


; \ si 
Afin de permettre a l'utilisateur de placer un message Sur l'écran où sur 
une feuille de listing, des codes de formattage sont disponibles. 


Le code de contrôle ! apparaissant dans une commande WRITE, impliquera que 
le message suivant ce code sera imprimé au debut de la ligne suivante. Far 
conséquent, la commande suivante : 


WRITE "hetlo",),"vous tes sous le contrôle de mumps' 


Produit, sur l'écran, le résultat suivant : 


hello 
La) 
vous 2tes sous le contr@le de mumps 
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IT est également possible d'utiliser un autre caractère spécial qui est le 
diese CH). Ce caractère a pour action, pour un écran, de placer le curseur 
en haut à gauche de celui-ci (lere Tigne/colonne 1), pour une imprimante, de 
changer de page. 


Un autre caractère spécial est disponible dans la commande WRITE ; il s’agit 
du point d'° interrogation (2), euivi d'un nombre entier, qui a pour effet de 
positionner le message à une “eGibnte definie par le nombre entier, 

Exemple : 


WRITE #,728,"bonjour" 


LE” effet produit sera : le positionnement du curseur à la ligne 1, colonne ! 
de 1‘ écran, puis, le positionnement du curseur en colonne 28 et l’Écriture 
du message “bonyour" en colonne 21, Qn peut également trouver l’ordre 
suivant, mais nous vous laissons deviner l’action produite 


WRITE H!!,"CLIENT",710 ,N0M 
Nous espérons que vous avez trouvé... 
Néanmoins, nous allons vous donner la solution : 


Le curseur se positiannera en haut à gauche de 1‘ écran, descendra de deux 
lignes, enverra le message "CLIENT", ce positionnera à la colonne 14, puis 
écrira le contenu de la variable NOM en colonne 11. 


G) Les variables spéciales $X et #Y 


Ces variables sont des variables systême alimemtées par la commande write. 

Le contenu de $X sera toujours incrémenté du nombre de caractères Émis depuis 
le dernier envoi du signe !, celui-ci remettant à zéro la variable 4x. 

On peut gire; pour $%X, qu’il s’agit de la variable compteur de colonnes, 


fu contraire, la variable #Ÿ est la variable de compteur lignes. ÆTte est 
remise à zéra lors de l'émission du signe K, La variable $X est Également 
remise a zéro. 


H) La commande READ 


Nous avons presenté la commande | WRITE avant la commande READ parce que, en 
effet, la commande READ permet à l'utilisateur d'écrire un message sur 1e 
terminal avant de demander d'entrer des donnees au clavier, Cette 
possibilite est particulièrement utile pour prévenir l'utilisateur que 
l'ordinateur est entrain d'attendre des informations, La commarde FERD est 
construite pratiquement de Ta meme manière que !a SENReARe WRITE, à 13 
différence près que l'on cite la ou les variables réceptrices des données 
entrées au clavier. L'exemple suivant illustre une commande READ avec des 
arguments multiples : 


READ !,'"Sge : ",AG,!,"date de naissance (jj‘mm/aa) : ",DDN 
L’exécution de cette commande :e déroulera de la manière suivante 


passage du curseur à la ligne suivante 

envoi du message Age : 

attente de saisie au clavier 

la variable AG sera alimentée par là saisie 
passage du curseur à la ligne suivante 

envoi du message date de naissance (jj/mm/aa) : 
attente de saigie au clavier 

atimentation de la variable DON par la saisie 


LS = Pas 
Bien entendu, les caracteres de controle #, !, ? peuvent etre employés 
une commande READ. 


La nouvelle norme de Ïi 
Nous les etudierons ul 


582 a étendu les fonctionnalités de la commande READ. 
térieurement, 
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1) Postconditions sur les commandes 


MUMPS permet au programmeur de posteonditionner pratiquement toutes Îles 
ne à ‘ : 

commandes en utilisant une expression qui Sera évaluée en tant que valeur 

vraie, Si elle est trouvée juste, la commande sect exécutée. 


Prenons, par exemple, la commande !: SET X=X+1 chaque que fois que la 
commande est exécutée, elle ajoute ! Ÿ la valeur courante de X, Supposez que 
vous ne vouliez pas que la valeur de X dépasse 18, il existe un moyen 


5 « . ” \ 
d'accomplir cet objectif, c'est d’ajouter une postcondition à la commande 
d'origine. Nous ecrirons la commande de la manière suivante : 


SET:X<11 X=X+1 


En clair cette forme d'écriture correspond À SET X=X+i 41 X est intérieur 
. 
à 11. 


La postcondition est énoncée derrière le verbe en les séparant par deux 
points (12, Cette facilité n'est quasiment propre qu'à MUMPS. 


Les postconditions ne peuvent pas s'appliquer aux trois commandes MUMPS CIF, 
ELSE et FOR) que nous décrirons plus tard, 


. | ; : 4 : : 
Si l‘on veut avoir une information à l'écran, lors d’un traitement itératif, 
et que le message mentionnant le nombre de données traitées ne soit envoyé 
que tous les cent passages, on écrirait l’ordre suivant : 


URITE:NHIG8=8 !,N," donnees traitées* 


J) Possibilité d’abréviation des commandes 


MUMPS permet de citer les commandes ou les fonctions de deux façons 
différentes. La première est d'écrire la commande ou la fonction en entier, 
tet que : SET, KILL, WRITE, $LENGTH, SELECT, $FIND etc.., la deuxième 
consiste à écrire seulement la première lettre de la commande ou les deux 
premiers caractères de la fonction. Les commandes et les fonctions que nous 
avons exposées auparavant peuvent cependant etre abregèes comme suit : 


KILL K 
READ R 
SET 6 
WRITE W 
ASCII $A 
SCHAR $C 
SEXTRACT $E 
$FIND $F 
SLENGTH  &L 
$PIECE $P 
RANDOM #$R 
SELECT 


Voici quelques exemples d'abréviation de commandes : 
R illez entrer la date du jour !: ",DATE 
WA,!,C.H,0,8Lé2) ,SPCI,R, 2 
R X,R,2 


Dans la derniere commande on pourrait penser qu'il » à un risque de confusion 
entre le verbe READ €R) et la variable R. Mais MUMPS solutionne ce genre de 
confusion dans sa sÉmantique, car les verbes seront séparés des arguments 

par un ou plusieurs espaces et les arguments multiples séparés par des 
yirgules. 


Lorsqu'une commande n’a besoin d'aucun argument, celle-ci devra 
impérativement dtre suivie de deux espaces. Sauf dans Île cas particulier, ou 
une telle commande se trouve seule dans une ligne ou à ja fin d'une ligne. 
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L.P.B. SEPTIEME LECON Christian SCHERER 


Nous avons vu lors des leçons précédentes comment créer certaines 
primitives graphiques réellement performantes en langage-machine pour 


PLOT x,y : allumer le pixel de coordonnées (x,y) 
LINE x,y : tirer un trait d'extrémité (x,y) 


Aujourd'hui, nous emprunterons à notre ami mathématicien Jean LEFLOUR 
une solution élégante et inédite permettant de tracer un cercle à une vitesse 
inégalée. 


la trigonométrie, et même au 
la formule de Pythagore. Tous 


L'algorithme employé évite le recours 
calcul de racine carrée, bien qu'il se réfère 
les calculs s'effectuent en nombres entiers. 


pm 


On se ramène d'abord à la construction d'un huitième de périmètre, les 
sept autres s'en déduisant au fur et à mesure par des symétries évidentes. 


Le premier point de l'arc aura pour coordonnées cartésiennes 
x=r y=0 


On décrémente ensuite progressivement x. Pour chaque décrémentation de 
x, on incrémente y jusqu'à ce que x*x+y*y dépasse r*#r. Un test supplémentaire 
stoppe le programme lorsque y dépasse x. 


L'intérêt de la méhode tient au fait qu'elle ne met en jeu que des 
calculs et des tests très rapides. On simplifie encore le programme en 
remarquant que le carré d'un entier est la somme des impairs de rang au plus 
égal à cet entier: 1+3=2%2; 1+3+5=3#3, 1+3+5+7=4%4, etc ... 


1) VERSION BASIC 


La version BASIC, à la fois très rapide et très courte, a été essayée 
avec succès sur AMSTRAD pour représenter un tore non régulier avec trou, qui 
comporte la construction de 72 cercles. On a conservé la méthode 
trigonométrique pour construire Prekispes lieu des centres, car sa contribution 
à la durée d'exécution du programme n'est pas critique. 


10 DEFINT a-z: DEFREAL t 

20 CLS:DEG 

30 FOR i=0 TO 355 STEP 6 

4O x0=270+240*C0S(i): y0=200+100*SIN(i): r=(x0+y0)/9 


50 GOSUB 80 
60 NEXT 
70 GOTO 70 


AMSTRAD 
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80 REM cercle de centre x0,y0 et de rayon r 

90 x=r: y=0: pz=r 

100 PLOT xO+x,yO+y: PLOT xO+x,yO-y: PLOT x0-x,yO+y: PLOT x0O-x,y0-y 
110 PLOT xO+y,yO0+x: PLOT xO+y,yO-x: PLOT xO-y,yO+x: PLOT x0O-y,y0-x 
120 IF y>x THEN RETURN 

130 y=y+1:p=p+1-y-y 

140 IF p>0 THEN 100 

150 x=x-1:p=p+x+x:GOTO 100 


Temps total d'exécution de ce programme : 75 secondes. 


2) VERSION LPB 


Pour accélérer encore ce programme, il est tentant de commencer par 
convertir en langage-machine le sous-programme de construction d'un cercle 
(lignes 80 à 150 du programme BASIC). 


Voici la version en langage LPB : 


90 DEFW R,X0,Y0,X,Y,X1,X2,Y1,Y2 


101 

102 : 

100 X=HL=R:Y=HL=0:GOSUB &$B906 :REM UPPER ROM ENABLE 

110 HL=R: REM P=R 

120 PUSH HL:GOSUB 200:POP BC | 

130 HL=X:DE=Y:A=A OR A:HL=HL SBC DE: IF < THEN &B909 :REM UPPER ROM DISABLE 
140 DE+DE+1:HL=HL+1:DE:2=:HL:Y=HL:HL=HL+HL:DE:=:HL 

150 H=B:C=L:HL=HL SBC DE:IF >=THEN 120 :REM LOOP WHEN P»=0 
150 B=H:L=C:X=HL=X-1:HL=HL+HL+BC:GOTO 120 : REM P=P+2%X 
200 REM 

201 

202 

210 DE=X:X1=HL=X0+DE:X2=HL=X0 SBC DE 

220 DE=Y:Y1=HL=YO+DE: Y2=HL=Y0 SBC DE 

230 GOSUB 300 

240 DE=Y:X1=HL:X0+DE:X2=HL=X0 SBC DE 

250 DE=X:Y1-=HL=YO+DE:Y2=HL=Y0 SBC DE 

260 GOSUB 300 

270 

300 

301 REM PLOT 4 POINTS EN RETANGLE 

302 REM 

310 DE=X1:HL=Y1:GOSUB &1816 

320 DE=X1:HL=Y2:GOSUB &1816 

330 DE=X2:HL=Y1:GOSUB &1816 

340 DE=X2:HL=Y2:GOSUB &1816 

350 RETURN 


Avec cette routine en LPB, le temps d'exécution du programme complet 
descend à 13 secondes 
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tv kermit.c 
Ker mit File Transfer Utility 


UNIX Kermit, Columbia University, 1981, 1982, 1983 
Bill Catchings, Bob Cattani, Chris Maio, Frank da Cruz, Alan Crosswell 


Also: Jim Guyton, Rand Corporation 
Walter Underwood, Ford Aerospace 


X KO OX OX X K x x 


x 


usage: Kermit c (lbe line baud escapechar) to connect 
kermit s (d..iflb line baud) file ... to send files 
kermit r {d..iflb line baud) to receive files 


where C=connect, s-send, r-receive, 
d-debug, i-image mode, f-no filename conversion, l=tty line, 
b-baud rate, e-escape char. 

For remote Kermit, format is either: 


kermit r - to receive files 
or kermit s file ... to send files 


Modification Historv: KE. MIT 


May 21 84 - Roy Smith (CUCS), strip parity from checksum in rpack() 


X OX OX OK NX OX OX x K x x x 


K OX OX OX OX OX X OX K OK OX M OX OX OX X NO x x 


Fe 


OCt. 17 Inciuded fixes from Alan Crosswell (CUCCA) for IBM_UTS: 
- Changed MYEOL character from \n to \r. 
- Change char to int in bufilil so getec would return -1 on 
EOF instead of 255 (-1 truncated to 8 bits) 

- Added read() in rpack to eat the EOL Character 

- Added fflush() call in printmsg to force the output. 

NOTE: The last three changes are not conditionally compiled 

since they should work equally well on any system. 

Changed Berkeley 4.x conditional Compilation flag from 
UNIX4X to UCB4X. 

Added support for error packets and cleaned up the printing 
routines. 


#include “stdio.h» /* Standard UNIX definitions x*x/ 


/* Conditional compi!'ation for different machines/operating systems x} 
/*x One and only one of the following lines should be 1 x/ 


#define UCB4Xx 

#define TOPS_20 
#define I1BM_UTS 
#define VAX_VMS 


/* Berkeley 4.x UNIX */ 

/*x TOPS-20 x/ 

/* Amdahl UTS on IBM systems *x/ 

/x VAX/VMS (not yet implemented) */ 


000 


/* Conditional compilation for the different Unix variants x, 
/x 0 means don't compile it, nonzero means do x/ 


#if UCB4X 

#define V6 _LIBS 
#define NO FIONREAD 
#define NO TANDEM 
#endif 


/*x Dont't use retrofit libraries x, 
‘x We have ioctl(FIONREAD,...) for flushinput() x*x/ 
/* We have TANDEM line discipline (xon/xoff) x / 


000 
* 


#if IBM_UTS 
#define V6_LIBS 
#define NO FIONREAD 
#define NO TANDEM 
#endif 


/* Don't use retrofit libraries x}, 
NO ioctI(FIONREAD,...) for flushinput() x’ 
/* No TANDEM line discipline (xon/xoff) x*x/ 


sé à © 
x 


#if VAX_VMS 

#define V6_LIBS 
#define NO_FIONREAD 
#define NO TANDEM 
#endif 


‘x Don't use retrofit libraries x/ 
‘* No iocCtl{FIONREAD,...) for flushinput() x/ 
/* No TANDEM line discipline (xon/xoff) x/ 


©) 
# 


#if V6 _LIBS 

#include tretrofit/sgttv.h) 
#include ‘retrofit/signal.h: 
#include :retrofit/set jmp.h: 
felse 

#inciude :signal.h» 

#include «set jmp.h> 

#endif 


#if !(V6_LIBS | VAX VMS) 


#include :sgtty.h: 
#endif 
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#if NO _ TANDEM 
#define TANDEM (e] 
#endif. 


/*x Symbol Definitions */ 


#define MAXPACKSIZ 94 
#define SOH 1 
#define CR 13 
#define SP 32 
#define DEL 127 
#define ESCCHR RAR: 
#define MAXTRY 10 
#define MYQUOTE "#° 
#define MYPAD O0 
#define MYPCHAR (e) 
#if IBM_UTS 

#define MYEOL "\r' 
#else 

#define MYEOL ‘"\n' 
#endi f 

#define MYTIME 10 
#define MAXTIM 60 
#define MINTIM 2 
#define TRUE -1 
#define FALSE 


/*x Macro Definitions *x/ 


J% 
*x tochar: 
* 
* unchar: undoes tochar. 
x 
x ctl: converts 
.* toggiing 
x/ 
#define tochar(ch) 
#define unchar(ch) 
#define ctl(ch) 


/* Global Variables 
int size, 
rpsiz, 


remote, 
image, 
debug, 
filnamcnv, 
filecount; 
char state, 
padchar, 
eol, 
escchr, 
quote, 
xxfilelist, 
xfilnam, 


recpkt{MAXPACKSIZ), 
packet (MAXPACKSIZ); 


FILE xfp, 


*1og; 


jmp_buf env; 


x main 


* Main routine - parse command and options, 


x tty lines, 


/x*x 
1x 


define it to be nothing if it's unsupported x/ 


Maximum packet size */ 

Start of header */ 

ASCII Carriage Return */ 

ASCII space */ 

Delete (rubout) */ 

Default escape character for CONNECT x} 


Times to retry a packet */ 

quote character I will use */ 

Number of padding characters I will need *x/ 
Padding character I need (NULL) */ 


End-Of-Line character for UTS systems *x/ 
End-Of-Line character I need *x/ 
Seconds 


Maximum 
Minumum 


after which I should be timed out */ 
timeout interval */ 
timeout interval *x/ 


Boolean constants *x/ 


converts a control character to a printable one by adding a space. 


between control characters and printable characters by 
the control bit (ie. 


A becomes À and A becomes A). 


Size of present data */ 
Maximum receive packet size */ 
Maximum send packetisize */ 
How much padding to send *x/ 
Timeout for foreign host on 
Packet number */ 

Times this packet retried x*x/ 
Times previous packet retried x/ 

File descriptor of tty for 1/6, O if remote */ 
-1 means we're a remote kermit x/ 

-1 means 8-bit mode */ 

indicates level of debugging output (O=none) x*/ 
-1 means do file name case conversions *x/ 
Number of files left to send */ 


sends *x/ 


Present state of the automaton */ 
Padding character to send *x/ ï 
End-Of-Line character to send */ 
Connect command escape character x/ 
quote character in incoming data */ 
List of files to be sent */ 

Current file name */ 

Receive packet buffer x*x/ 

Packet buffer x/ 


File pointer for current disk file x*x/ 
File pointer for Logfile x*x/ 


Environment ptr for timeout longjump */ 


set up the 


and dispatch to the appropriate routine. 
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main(argc,argv) 
int argc; 
ghar xxargv; 


char xttynamé, 
xCP; 
int speed, 
cfig, rflg, sf1g; 


struct sgttvb 
‘: rawmode, 
cookedmode, 
ttymode; 
if Cargc < 2) usage(); 


Cp = x++argv; argv++; argc -= 2; 


Character pointers to and count of *x/ 


VE: 


{x 
1x 
1% 
1x 


1% 
1x 
1% 


HE 


E 


command line arguments */ 


ttyv name for LINE argument x/ 

char pointer x/ 

speed of assigned tty, *x/ 

flags for CONNECT, RECEIVE, SEND x*x/ 


Controlling ttv raw mode *7/ 
Controlling tty cooked mode *7/ 
mode of tty line in LINE option */ 


Make sure there's a command line *, 


Set up pointers to args */ 


/*x  initialize these values and hope the first packet will get across OK */ 


eol = CR: 
quote = ‘'#'; 
pad = O0; 


padchar = NULL; 


speed = cflg = sflg = rf1g = O0; 
ttyname = 0; 


#if UCB4X 
image = FALSE; 
fiilnamcenv = TRUE; 
#else 
image = TRUE; 
filnamcnv = FALSE; 
#endif 


escchr = ESCCHR; 


while ((xcp) != NULL) 
switch (xcp++) 
{ 
case ‘'c': cflg++; break; 
case ‘s': sflg++; break; 
case ‘r': rflg++; break; 


case ‘d': 
debug++; break; 


case ‘'f': 
fiilnamcenv = FALSE; 
break; 


case ‘i': 
image = TRUE; break; 


case ‘'l': 
if Cargc--) ttyname 
else usage); 


/x 
1x 
PE: 
1x 
x 


{x 
1% 
1% 
VE: 
1x 
/%x 
1x 
1x 
/x 
VA 
/%x 
1* 


EOL for outgoing packets *x/ 
Standard control-quote char "#" *x/ 
No padding */ 

Use null if any padding wanted */ 


Turn off all parse flags */ 
Default is remote mode *x/ 


Default to 7-bit masking, CRLF */ 
translation and filename case */ 
conversion for UNIX systems *x/ 
Default to no processing for *x/ 
non-UNIX systems */ 


Default escape character *x/ 


Parse characters in first arg. *x/ 


C = Connect command *x/ 

S = Send command */ 

R = Receive command */ 

D = Increment debug mode count */ 


/*x F = don't do case conversion */ 

/x on filenames *x/ 

/*x I = Image (8-bit) mode */ 

/x (this is default for non-UNIX) *x/ 

/*x L = specify tty line to use */ 
xargv++; 


if (debug) printf("Line to remote host is %s\n",ttyname); 


break; 

'e': 
if Cargc--) escchr = 
else usage(); 


case 


1% 


E = specify escape char */ 


xxargv++; 


if (debug) printf("Escape char is \"#%c\"\n”",escchr); 


1x 


B = specify baud rate */ 


atoi(xargv++); 


if (debug) printf("Line speed to remote host is %*d\n",speed); 


printmsg("Speed setting implemented for Unix oniy."); 


break; 
case ‘b': 
#if UCB4X 
if (argc--} speed = 
else usage(); 
break; 
#else 
exit(1); 
#endif 


} 
/x Done parsing *x/ 


if Cécflg+sfig+rfig) != 1) 
usage); 


/x Only one command allowed x*/ 
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Cttyname) 1x 
1% 
ttyfd = open(ttyname,2); 1x 


if (ttyfd < 0) 
€ 


printmsg("Cannot open 


exit(1); 
remote = FALSE; /x 
} 
else 1x 
€ /x 
ttyfd = 0; 4x 
remote = TRUE; 


} 


If LINE was specified, we x/ 
operate in local mode x*x/ 
Open the tty line *x/ 


%s",ttyname); 


indicate we're in local mode */ 
No LINE specified so we operate 
in remote mode (ie. controlling 
tty is the communications line) 


*/ 
x/ 
x/ 


/*x Put the proper tty into the correct mode *x/ 


if (remote) 


{ 


} 


else 


{ 


1x 
gtty(0,&cookedmode); 1x 
gtty(0,&rawmode) ; 1% 


rawmode.sg_flags |-= 
rawmode.sg_flags &-= 
stty(0,&rawmode) ; 


CRAW|TANDEM) ; 
© (ECHO | CRMOD) ; 
J%x 


1% 
gtty(ttyfa,&ttymode); 


ttymode.sg_flags |= CRAWI|TANDEM) ; 
ttymode.sg_flags &=  (ECHO|CRMOD) ; 


1f remote, use controlling tty */ 


Save current mode So we can 
restore it later */ 


*/ 


put tty in raw mode */ 


Local, use assigned line */ 


#if UCB4X /*x Speed changing for UNIX only x*x/ 
if (speed) /x User specified a speed? */ 
{ 
switch(speed) /*x Get internal system code *x/ 
€ 
case 110: speed = B110; break; 
case 150: speed = B150; break; 
case 300: speed = B300; break; 
case 1200: speed = B1i200; break; 
case 2400: speed = B2400; break; 
case 4800: speed = B4800; break; 
case 9600: speed = B9600; break; 
default: 
‘ printmsg("Bad line speed."); 
exit(1); 
} 
ttymode.sg_ispeed = speed; 
ttymode.sg_ospeed = speed; 
} 
#endif /x UCB4X */ 


stty(ttyfd,e&ttymode); 


1f (debug) 


{ 


} 


printf("Debugging level 


/*x put asg'd tty in raw mode *x/ 


= #d\n\n”,debug); 


if (cflg) printf("Connect command\n\n"); 
if (sflg) printf(C"Send command\n\n 5, 
if Crfig) printf("Receive command\n\n"); 


if (cfig) connect(); 1x 
if (sfl1g9) /x 
€ 
if Cargc--) filnam = xargv++; /x 
else es 
if (remote 
À stty(O,&cookedmode); 1x 
usage(); /x 
fp = NULL; {x 
filelist = argv; 1x 
filecount = argcC; : {x 
if (sendsw() == FALSE? /x 
printmsg("Send failed."); /x 
else 1x 
printmsg("done."); 1% 
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Connect command *x/ 
Send command */ 


Get file to send x/ 


Restore controlling tty's modes */ 
and give error */ 


indicate no file open yet x/ 
Set up the rest of the file list *x/ 
Number of files left to send */ 
Send the file(s) */ 

Report failure */ 

or */ 

success */ 


if Crf1g) /*x Receive command */ 
{ 


if (recsw() == FALSE) /*x Receive the file(s) x} 
printmsg("Receive failed."): 
else /*x Report failure x/ 
printmsg("done."); /*x or success *x/ 
} 
if (remote) stty(0,&cookedmode) ; /*x Restore controlling tty's modes *x/ 


1x 
x* sendsw 
x 
*  Sendsw is the state table switcher for sending files. It loops until 
* either it finishes, or an error is encountered. The routines called 
* by sendsw are responsible for changing the state. 
2 
*/ 
sendsw() 
{ 
char sinit(), sfile(), sdata(), seof(), sbreak(); 
state = ‘'S'; /*x Send initiate is the start state */ 
n = 0; /*x Initialize message number *x/ 
naumtry = O; /*x Say no tries yet x/ 
while(TRUE) /*x Do this as long as necessary */ 
€ 
if (debug) printf('"sendsw state: %c\n",state): 
switch(state) 
{ 
case ‘'S': state = sinit(); break; /x Send-Init */ 
case ‘'F': state = sfile(); break; /*x Send-File *x/ 
case ‘"'D': State - sdata(); break; /*x Send-Data */ 
case ‘'Z': state = seof(); break; /x*x Send-End-of-File */ 
case ‘'B': State - sbreak(); break; /x Send-Break x/ 
case ‘'C': return (TRUE); /*x Compiete */ 
case ‘'A': return (FALSE); /x "Abort" x/ 
default: return (FALSE); /*x Unknown, fail *x/ 
} 
} 
} 
/x 
x sinit 


* 


* Send Initiate: send this host's parameters and get other side's back. 
x/ 4 


char sinit() 
{ 
int num, len; /*x Packet number, length */ 


if Cnumtry++ > MAXTRY) return('A'); />*x If too many tries, give up */ 


spar (packet); /x*x Fill up init info packet */ 
fiushinput(); /*x Flush pending input *x/ 
spack('S',n,6,packet); /*x Send an S packet */ 
switch(rpack(&len,&num,recpkt)) /x*x What was the reply? */ 
{ 
case ‘'N': return(state); /*x NAK, try it again x/ 
case ‘Y': /x ACK *x/ 
if On !-=- num) /x If wrong ACK, stay in S state */ 
return(state); /x and try again *x/ 
rpar Crecpkt); /x Get other side's init info */ 
if Ceol == 0) eol = ‘\n'; /x Check and set defauits *x/ 
if (quote == 0) quote = ‘'#'; 
numtry = O0; /*x Reset try coùnter *x/ 
n = (n+1)%64; /*x Bump packet count */ 
returnC'F'); /*x OK, switch state to F x/ 
case ‘'E': /*x Error packet received *x/ 
prerrpkt(Crecpkt); {x Print it out and */ 
return('A'); /x abort x/ 
case FALSE: return(staäte); /*x Receive failure, try again x/ 
default: return('A'); /*x Anything else, just "abort" x} 
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x sfile 
21 
*x Send File Header. 
*x/ 
char sfile() 
{ 
int num, len; /* Packet number, length */ 
char filnami{(50), /*x Converted file name */ 
xnewfilnam, /*x Pointer to file name to send *x/ 
*CP; /*x char pointer *x/ 
if Cnumtry++ > MAXTRY) return('A'); /x*x If too many tries, give up */ 
if Cfp == NULL) /*x If not already open, */ 
{ if (debug) printf(" Opening %s for sending.\n",filinam); 
fp = fopen(filnam,"r"); /*x open the file to be sent */ 
if Cfp == NULL) /*x If bad file pointer, give up */ 
{ 
error("Cannot open file %s",filnam); 
returnC'A'); 
} 
} 
strcepy(filnami, filnam); /*x Copy file name */ 
newfilnam = cp = filnami; | ; 
while (xcp != ‘\0') /x Strip off all leading directory */ 
if Cxcp++ == /") /*x names (ie. up to the last /3). x*x/ 
newfilnam = cp; 
if (filnamcnv) /*x Convert lower case to upper x*x/ 
for (cp = newfilnam; *xcp != *\0'; cp++) 
if Cxcp >= ‘'a' && xcp <= ‘z') 
xCp = 040; 
len = cp - newfilnam; /x*x Compute length of new filename x/ 
printmsg("Sending %s as %s",filnam,newfilnam): 
SpackC'F',n,len,newfilnam); /x Send an F packet x*x/ 
switch(rpack(&len, &num,recpKt)) /*x What was the reply? */ 
{ 
case ‘N': /*x NAK, just stay in this state, x/ 
num = (--num<O ? 63:num); /* unless it's NAK for next packet x/ 
if Cn != num) /*x which is just like an ACK for x*/ 
return(state); /*x this packet so fall thru to... x/ 
case ‘'Y': /* ACK *x/ 
if (n !-= num) return(state); /* If wrong ACK, stay in F state */ 
numtry = O; /*x Reset try counter *x/ 
n = (n+1)%64; /*x Bump packet count */ 
size - bufill(packet); /*x Get first data from file x/ 
return('D'); /*x Switch state to D *x/ 
case ‘'E': /*x Error packet received */ 
prerrpkt(recpkt); /*x Print it out and */ 
returnC'A‘); /*x abort x*x/ 
case FALSE: return(state); /*x Receive failure, stay in F state #/ 
default: returnC'A'); /*x Something else, just “abort" x*/ 
} 
} 
1x 


* sdat a 


x Send File Data 
*x/ 
char sdata() 
€ 
int num, len; /*x Packet number, length */ 


if Cnumtry++ > MAXTRY) return('A'); /x If too many tries, give up *x/ 
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spackC'D',n,size,packet): /*x Send à D packet x/ 


switch(rpack(&len,&num,recpkt)) /x What was the reply? x*x/ 
{ 
case ‘'N': /x NAK, just sStav in this state, */ 
num = (--num<0 ? 63:num); /*x unless it's NAK for next packet x/ 
if Cn !- num) {x which is just like an ACK for x/ 
return(state); /*x this packet so fall thru to... */ 
case ‘"Y': /x ACK x*x/ 
if On != num) return(state); /x If wrong ACK, fail x*x/ 
numtry = 0; /*x Reset try counter *x/ 
n = (n+1)%64; /* Bump packet count *x/ 
if ((size = bufill(packet)) =- EOF) /*x Get data from file x/ 
return('2Z'); /*x If EOF set state to that */ 
return('D'); /*x Got data, stay in state D x/ 
case ‘'E': /*x Error packet received */ 
prerrpkt(recpkt): : /x Print it out and */ 
return('A'); /x abort x/ 
case FALSE: return(state); /*x Receive failure, stay in D x*x/ 
defauit: return(‘'A'); /*x Anvthing else, “abort" x*/ 
} 
} 
1x 


* se o f 


*x* Send End-Of-File. 
x/ 


char seof() 
{ 
int num, jien; /* Packet number, length x/ 
if Cnumtry++ > MAXTRY) return('A'); /x If too many tries, “abort" x/ 


spack('Z',n,0,packet); /*x Send à ‘Z' packet *x/ 
switch(rpack(&len,&num,recpkt)) /*x What was the reply? x/ 
€ 
case ‘'N': à /* NAK, just stay in this state, *x/ 
num = (--num<O ? 63:num); /x unless it's NAK for next packet, x 
if On !-= num) /x which is just like an ACK for x*/ 
return(state); /*x this packet so fall thru to... */ 
case ‘'Y': /*x ACK */ 
if (n !-= num) return(state); /* If wrong ACK, hold out x/ 
numtry = O; /*x Reset try counter */ 
n = (n+1)%64; /* and bump packet count */ 
if (debug) printf(" Closing input file %s, “,filnam); 
fclose(fp); /x Close the input file */ 
fp = NULL; /*x Set flag indicating no file open & 
if (debug) printf("looking for next file...\n"); 
if Cgnxtfl() == FALSE) /x No more files go? x/ 
return('B'); /*x if not, break, EOT, all done x/ 
if (debug) printf(" New file is %s\n",filnam); 
returnC'F'); /*x More files, switch state to F x/ 
case ‘'E': {x Error packet received x; 
prerrpkt(recpKkt): /x Print it out and x/ 
return('A'); {x abort *x/ 
case FALSE: return(state); /*x Receive failure, stav in Z */ 
default: return('A'); /*x Something else, “abort" x/ 
} 
} 
1x 
* sbreak 
L.2 
* Send Break (EOT) 
x/ 


Char sbreak() 
{ 
int num, len; /* Packet number, length x*/ 
if (numtrv++ : MAXTRY) return('A'); /x If too many tries "“abort" x*/ 


Spack('B',n,0,packet ); /x Send à B packet */ 
switch (rpack(&len,&num,recpkt)) /*x What was the reply? x/ 
{ 
case ‘"N': /*x NAK, just stas in this state, *x'’ 
num = {--num’0 ? 63:num); /* unless NAK for previous packet, *x° 
if On f= num) /*x which is just like an ACK for x/ 
return(state); /x this packet so fall thru to... */ 
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case ‘'Y': 
if En t= 
numtry = 0; 
n = (n-1)%64; 


return('C'); 


*E': 
prerrpkt{(recpkt); 
return('A‘); 


case 


case FALSE: return(state); 


default: return (C'A'); 


* recsw 
x This is the state table switcher 
x/ 


recsw() 
{ 
rfile(), 


char rinit(), rdata(); 


state = 'R'; /* Receive-Iinit is the start state *x/ 
n = O; /*x Initialize message number x*x/ 
numtry = O0; /{*x Say no tries vet x/ 
while(TRUE) 
{ 
if (debug) printf(" recsw state: %c\n",state); 
switch(state) /*x Do until done x/ 
{ 
case ‘'R': state = rinit(); break; /*x'Receive-Init */ 
case ‘F': state = rfile(); break; /x Receive-File *x/ 
case 'D': state - rdata(); break; /*x Receive-Data *x/ 
case ‘C': return(TRUE); /x Compiete state x/ 
case ‘A’: return(FALSE); /x “Abort" state x*x/ 
} : 
} 
} 
1x 
x rinit 
x 
x Receive Initialization 
x/ 
char rinit(C) 
{ 
int len, num; /*x Packet length, number x*/ 
if Cnumtry++ MAXTRY)D return('A'); /x*x If too many tries, "abort" x*x/ 
switch(rpack(&len,&num,packet)) /*x Get a packet */ 
{ 
case ‘'S': {x Send-Iinit x/ 
rpar(packet); {x Get the other side's init data *x/ 
spar (packet); {x Fill up packet with my init info *x/ 
spack('Y',n,6,packet); /x*x ACK With my parameters x} 
oldtry = numtry; /*x Save old try count */ 
numtry = 0; /x Start a new counter x*x/ 
n = (n+1)%64; /x Bump packet number, mod 64 *x}/ 
return(’F'); /*x Enter File-Receive state *x/ 
case 'E': /*x Error packet received *x/ » 
prerrpkt(recpkt); /x Print it out and *x/ : 
return('A'); /*x abort */ 
D] 
case FALSE: /*x Didn't get packet x/ 
spackC'N',n,0,0); /x Return à NAK *x/ 
return(state); /*x Keep trying */ 
default: return('aA'); ‘*x Some other packet type, “abort”" *x/ 
} 
} 
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{x ACK *x/ 


num) return(state); /x If wrong ACK, fail x” 


/x Reset try counter x/ 
/x and bump packet count */ 
/*x Switch state to Complete x/ 


/x Error packet received x} 
/x Print it out and */ 

{x abort */ 

{*x Receive failure, 


stay in B *x/ 


{x Other, “abort" x} 


for receiving files. 


/*x Use these procedures x 


rfi le 


* Receive File Header 


x 


char rfile() 


€ 
int num, len; {*x Packet number, length x/ 
char filnami(50); /* Holds the converted file name x/ 
if Cnumtrv++ > MAXTRY) return('A'); /x “abort” if too many tries x/ 
switch(rpack(&len,&num,packet )) /x Get a packet *x/ 
{ 
case ‘'S': /*x Send-Iinit, mavbe our ACK lost */ 
if Coldtry++ > MAXTRY) return('A'); /x If too many tries “abort" +«/ 
if (num == ((n==0) ? 63:n-1)) /x Previous packet, mod 64? x/ 
€ /*x Yes, ACK it again with x/ 
sSpar (packet ) : /*x our Send-Iinit parameters *x/ 
spack('Y',num,6,packet); 
numtry = O0; /*x Reset try counter x/ 
return(state); /*x Stay in this state *x/ 
} 
else return('A’); /x Not previous packet, "“abort" */ 
case ’Z': /*x End-Of-File x/ 
if (oldtry++ > MAXTRY) return('A'); 
if (num == ((n==0) ? 63:n-1)) /x Previous packet, mod 647 *x/ 
{ /* Yes, ACK it again. *x/ 
spack('Y',num,0,0); 
numtry = O; 
return(state); /*x Stay in this state x/ 
} 
else return('A'); /*x Not previous packet, “abort" x*/ 
case ‘"F': /*x File Header (just what we want) x/ 
if (num !-= n) return('A'); /x The packet number must be right x/ 
Strcpy(filnami, packet): /x Copy the file name */ 
if Cfilnamenv) /x Convert upper case to lower x*/ 
for (filnam=filnami; xfilnam != '\0'; filnam+-) 
if Cxfilnam >= 'A' && *xfilnam <= ‘'Zz') 
xfilnam |= 040; 
if CCfp=fopentfilnami,"w"))==NULL) x Try to open a new file x*x/ 
{ 
error("Cannot create %s",filnami); /*x Give up if can't x/ 
return('A'); 
} 
else /*x OK, give message */ 
printmsg("Receiving %s as %s",packet, filnami): 
spack('Y',n,0,0); /* AcKnoWledge the file header x/ 
oldtry - numtry; /*x Reset try counters x/ 
numtry = O; 1x .,, *x/ 
n = (n+1)%64; /* Bump packet number, mod 64 x 
return('D'): /*x Switch to Data state x) 
case ‘'B': /*x Break transmission (EOT) */ 
if (num != n) return (‘A'); /* Need right packet number here x 
spackC'Y',n,0,0); /*x Say OK */ 
return('C'); /*x Go to complete state */ 
case ‘'E': /* Error packet received */ 
prerrpktt(recpkt); /x Print it out and */ 
return('aA'); fx abort x*x/ 
case FALSE: /*x Didn't get packet x/ 
SpackC'N',n,0,0); /*x Return à NAK x/ 
return(state); /*x Keep trying x/ 
default: return €'A'); {x Some other packet, "’abort" */ 
} 
} 
x 
x rdat a 
x 
* Receive Data 
x / 


char rdata() 
{ 
int num, len:; /* Packet number, length x/ 
if Cnumtry++ : MAXTRY) return('A'); /x "“abort” if too many tries */ 
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*/ 


switch(rpack(&len,&num,packet )) 
{ 


case ‘D': 
if (num != n) 
{ 
if Coildtry++ > MAXTRY) 
return('A'); 
if (num == ((n==0) ? 63: 


{ 


spack('y',num,6,packet); 


numtry = O; 
return(state); 
} 
else return('A'); 
} 


Get packet */ 


/*x Got Data packet */ 
/*x Right packet? *x/ 
No *x/ 

If too many tries, abort x/ 
n-1)) /*x Else check packet number 
/* Previous packet again? */ 

/x Yes, re-ACK it *x/ 

/*x Reset try counter x/ 

{x Don't write out data! *x/ 


j*x sorry, wrong number *}/ 


/x Got data with right packet number x/ 


bufemp(packet,len); 
spackC'Y',n,0,0); 
oldtry = numtry; 
numtry = O; 

n = (n+1)%64; 
return('D'); 


°F’: 
if (oldtrv++ : MAXTRY) 
returnC'A'); 


case 


C(n==0) 


spackÇ'Y',num,0,0); 
numtry = O; 
return(state);, 


} 
else return('a'); 
case ‘Z': 
if Cnum t= n) return('a'); 


spack('Yy',n,0,0); 
fclose(fp); 

n = (n+1)%64; 
returnC'F'); 


E': 


prerrpkt(recpKkt); 
return('A'); 


case 


case FALSE: 
spackC'N',n,0,0); 
return(state); 


default: return('aA'); 


connect 


Establish a virtual terminal connection with the remote host, 


assigned tty line. 


connect () 


{ 


int pid, 
connected; 

char bel = *’\07', 
C; 


struct sgttvb 
rawmode, 
cookedmode ; 


if (remote) 
€ 


printmsg("No line specified for 


return; 
} 


gtty(0,&cookedmode) ; 
gttv(0,&rawmode) ; 
rawmode.sg_flags 
rawmode.sg_flags &- 
sttv(0,&rawmode) ; 


CRAW | TANDEM) ; 
7 (ECHO CRMOD) ; 
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/x Write the data to the file */ 

/*x Acknowledge the packet x} 

/*x Reset the try counters *; 

1x. %/ 

/*x Bump packet number, mod 64 *x/ 

jx Remain in data state x} 

j*x Got a File Header */ 

{x 1f too many tries, “abort" */ 

/x Else check packet number */ 

/*x It was the previous one *, 

/x ACK it again */ 

/x Reset try counter *x/ 

/*x Stay in Data state *x/ 

/*x Not previous packet, "abort” x/ 

/* End-Of-File *x/ 

/x Must have right packet number x, 

/*x OK, ACK it. x/ 

/x Ciose the file */ 

/x Bump packet number x*x/ 

/x Go back to Receive File state *x/ 

/*x Error packet received x/ 

/*x Print it out and *x/ 

/x abort x*x/ 

/x Didn't get packet x/ 

/x Return à NAK *x/ 

/x Keep trying *x/ 

/*x Some other packet, "“abort" x7/ 
over an 


1x 
1x 


Holds process id of child */ 
Boolean connect flag *x/ 


Cortrolling tty raw mode +*/ 
Controiling ttvy cooked mode */ 


1x 


{x 
/*x Nothing to connect to in remote 


/*x mode, so just return 
connection."); 


*x/ 


/*x Save current mode so we can */ 
/x restore it later */ 


‘x Put tty in raw mode *x/ 


0] 


pid = fork{(); ‘x Start fork to get tvpeout from remote host +, 


if (pid) {x Parent: send type-in to remote host x, 
€ 
printmsg("connected...r"); 
connected = TRUE; ‘x Put us in “connect mode” x! 
while (connected) 
{ 
read(O0,&c,1); /*x Get a character */ 
if CCC&O177) == escchr) ;/*x Check for escape character *; 
{ 
read{(0,&c,1); 
if C(c&O177) == escchr) 
writetttvfd,&c,1); 
else 
switch (c&0177) 
{ 
case ‘'c': 
case ‘C': 


connected = FALSE: 
write(o,"\r\n",2); 


break; 
case ‘h': 
case ‘H': 
write(0,"\r\inYes, l'm still here...\r\n",26): 
break; 
default: 
write(O,&bel,1); 
break; 
} 
} 
else 
€ /x 1f not escape charater, *. 
write(ttvfd,&c,1); /x write it out x 
€ = NULL; {x Nullifv it (why?) x/ 
} 
} 
Kill(pid,9); /x Done, Kill the child x! 
wait (0); /*x and bury him *x/ 
sttv(0,&cookedmode ) ; /*x Restore ttv mode x 
printmsg("disconnected."); 
return; /*x Done */ 
} 
else ; /* Child does the reading from the remote host *, 
{ 
while(1) : /*x Do this forever x 
{ 
read(ttyfd,&c,1l); 
write(1,&c,1); 
} 
} 
} 
1x 
* KERMIT utilities. 
x/ 
clkint() /*x Timer interrupt handier x} 
{ 
long jmptenv, TRUE); ‘x Tell rpack to give up *x/ 
} 
1% 


* _S p a c k 


* Send a Packet 


x/f 


sSpack(type,num,len,data) 
char type, xdata; 
int num, len; 


€ 
int ii; /*x Character loop counter x}, 
Char chksum, buffer(100); /*x Checksum, packet buffer x} 
register char «bufp; /x Buffer pointer x/ 
if (Cdebugo1) /x*x Display outgoing packet x}, 
{ 
if (data != NULL) 
datallen) = '\0'; /x Null-terminate data to print it x 
printf(” spack type: #c\n”,type); 
printf(” num:  %d\n”,num); 
printfc* len: &d\n",len); 
if €tdata t= NULL) 
printf(” data: \"#&s\"\n",data); 
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bufp = buffer; 


4 
Lx 


Set up buffer pointer x / 


for (Ci=1; i‘-=pad: ji++) write(ttvfd,&padchar,1); /x Issue any padding */ 


xbufp++ = SOH; 

xbufp++ = tochar(len+3); 
chksum = tochar(len+3); 
xbufp++ = tochar(num); 
chksum += tochar (num); 
xbufp++ = type; 

chksum += type; 


for i=0; ivlen; i++) 
{ 
xbufp++ = data{i); 
chksum += datali); 
} 


1x 
1% 
Lx 
1x 
4: 
1x 
1% 


1x 


1x 
/x 


Packet marker, ASCII 1 (SOH) x/ 
Send the character count */ 
initialize the checksum *x/ 
Packet number *x/ 

Update checksum x*/ 

Packet type *x/ 

Update checksum */ 


Loop for all data charaeters *x! 


Get a character */ 
Update checksum */ 


chksum = ((tchksum&0300) >» 6)+chksum)&077; /x*x Compute final checksum */ 


xbufp++ = tochar(chksum); 
xbufp = eol; 


write(ttyfd, buffer,bufp-buffer+1); 


x rpack 


* Read a Packet 
x/ 


rpack(len,num,data) 
int *xlen, +*num; 


char xdata; 
{ 
| int i, done; 
char t, 
type, 
cchksum, 
rchksum; 


#if UCB4X 
if (set jmp(env)) return FALSE; 
signal(SIGALRM,cIlkint); 
if CCtimint : MAXTIM) j| Ctimint 
alarm(timint); 

#endif /x UCB4X x/ 


while Ct != SOH) 
{ , 
read{(ttyfd,&t,1); 
t &-= 0177; 

} 


done - FALSE; 

while (!done) 

{ 
read(ttyfd,&t,1); 
if Ctimage) t &= 0177; 
if (t == SOH) continue; 
cchksum = t; 
xlen = unchar(t)-3; 


read(ttyfd,&t,1); 

if (timage) t &= 0177; 

if (t == SOH) continue; 
cchksum = cchksum + t; 

xnum = unchar(t); 


read(ttyfd,&t,1); 
if (timage) t &= 0177; 


if (t == SOH) continue; 
cchksum = cchksum + t; 
tvpe = t; 


for (i=0; ixlen; i++) 

€ 
read(ttvfd,&t,1); 
if (timage) t &= O177; 
if Ct == SOH) continue; 
cchksum = cchksum + t; 
datati]l = t; 

} 

datafxlen]i = O; 


read(ttyfd,&t,1); 

if (fimage) t &= 0177; 
rchksum = unchar(t); 
read(ttyfd,&t,1); 

if Ctimage) t &= 0177; 
if (t == SOH) continue; 
done = TRUE; 


20 TEDI no AB novembre AI&sS 


1x 
{x 


1x 


1x 
{x 
1% 
1 * 
lx 
{x 
1x 
/*x 


PE 
{x 


/*x 


Put it in the packet */ 
Extra-packet line terminator */ 
Send the packet x/ 


Packet length, number x} 
Packet data */ 


Data character number, loop exit x*x/ 
Current input character x} 

Packet type *x/ 

Our (computed) checksum */ 

Checksum received from other host */ 


TOPS-20 can't handle timeouts.., *x/ 
Timed out, fail x/ 
Setup the timeout *}/ 


MINTIM)) timint = MYTIME; 


Wait for packet header */ 


Handie parity */ 


Got SOH, init loop *x/ 
Loop to get a packet *x7/ 


Get character */ 

Handle parity x/ 
Resynchronize if SOH */ 
Start the checksum *x/ 
Character count *}/ 


Get character *x/ 

Handle parity x/ 
Resvnchronize if SOH */ 
Update checksum *x/ 
Packet number x/ 


Get character x/ 

Handlie parity x/ 
Resynchronize if SOH *x/ 
Update checksum */ 
Packet type x/ 


The data itself, if any */ 
Loop for character count x} 
Get character *x/ 

Handle parity *x/ 

Resvnch if SOH */ 

Update checksum */ 

Put it in the data buffer x*/ 


Mark the end of the data */ 


Get last character (checksum) */ 
Handle parity *x/ 

Convert to numeric */ 

get EOL character and toss it *”7 
Handle parity */ 

Resynchronize if SOH */ 

Got checksum, done *x/ 


1] 


#if UCBA4X 


alarm(O); {x Disable the timer interrupt x 
#endif 
if Cdebug':1) ;/x Display incoming packet *x”° 
{ 
if tdata !-=- NULL) 
datalxlen) = ‘’*9'; {x Null-terminate data to print it x/ 
printf(" rpack type: %c\n",type); 
printfC” num: “d\n",xnum); 
printf(" len: *“d\n”,x*len); 
if (data != NULL) 
printf(" data: \"#%s\"\n”",data); 


} 
/*x Fold in bits 7,8 to compute */ 


cchksum = (((cchksum&0300) >> 6)+cchksum)&077; /x*x final checksum */ 


if Ccchksum != rchksum) return(FALSE); 


return(type); /*x All OK, return packet type *x/ 

} 
/%x 

x bu f i 11 

x 

*x Get a bufferful of data from the file that's being sent. 

*  Oniy control-quoting is done; 8-bit & repeat count prefixes are 

*x not handled. 

x/ 


bufill(buffer) 


char buffer(]); {x Buffer *x/ 
{ 
int ji, /x Loop index */ 
Es {x Char read from file *” 
char t7; /*x 7-bit version of above */ 
i = 0; {x Init data buffer pointer */ 
while((t = getc(fp)) != EOF) /x Get the next character x*x/ 
{ 
t7 = t & 0177; /x Get Iow order 7 bits x; 
h 


if (C7 « SP | t7-=:=-DEL || t7--=-quote) /*x Does this char require *, 
‘ ‘+ special handling? */ 
if (t=='\n' && image) 
{ j*x Do LF-:CRLEF mapping if !image */ 
buffer(i++] - quote; 
bufferCi++} = ctlCc'\r'); 
} 


buffer(i++)] = quote; /*x Quote the character *x/ 
if (t7 != quote) 
{ 
t = ctiét); /*x and uncontrolifv *x/ 
t7 = ctlét7); 
} 
} 
if Cimage) 
buffer(i++} = t; /*x Deposit the character itself *x/ 
else 
buüuffer(i++) = t7; 
if Ci >= spsiz-8) return(i); {x Check length */ 
} 
if Ci==0) return(EOF); /*x Wind up here only on EOF x/ 
return(i); /* Handle partial buffer x/ 


{x 
x bufemp 
* Put data from an incoming packet into a file. 
x/ 
bufemp(buffer,len) 
char buffer); /*x Buffer x*x/ 
int len; /x Length x}/ 
{ : 
int ji; {x Counter x/ 
Char t; /*x Character holder x/ 


+ Ci=0; i<len; i++) /*x Loop thru the data field */ 
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t = buffer(i); 


if Ct == MYQUOTE) 1x 
{ | 1x 
t = buffer(++i); /x 
if CCt & 0177) != MYQUOTE) 1% 
t = ctl(t); 4x 
} 
if (t=-CR && ‘t'image) 1% 
continue; 
putc(t,fp); 
H 
} 
1% 
x gnxt fl 
x 
x Get next file in a file group 
x/ 
: gnxtfl() 
€ 
if (debug) printf(" gnxtfl: filelist 
filnam - *x(filelist++); 
if (filecount-- == O) return FALSE, /x 


else return TRUE; 


1x 
* spar 
x 


1x 


Get character *x/ 

Control quote? */ 

yves */ 

Get the quoted character *x/ 

Low order bits match quote char? x/ 
No, uncontrollify it */ 


Don't pass CR if in image mode */ 


= \'gs\"\n*,xfilelist); 


1f no more, fail x} 
else succeed *x/ 


* Fill the data array with my send-init parameters %/ 


spar (data) 

char data); 

{ 
data(o} = tochar (MAXPACKSIZ); 
data(1i)j = tochar(MYTIME); 
data{2) = tochar(MYPAD); 
data(3) = ctl(MYPCHAR); 
data(4) = tochar(MYEOL); 
data(5) = MYQUOTE; 


/x rpar 


1x 
1x 
/% 
/x 
1x 


/*x Biggest packet I can receive */ 
When 1 want to be timed out *x/ 

How much padding I need *x/ 
Padding character I want */ 
End-Of-Line character 1 want x/ 
Control-Quote character I send */ 


*x Get the other host's send-init parameters 


rpar(data) 

char data(); 

{ 
spsiz = unchar(datalO)); 
timint = unchar(datal1)); 
pad = unchar(data{(2)); 
padchar = ctl(data(3)); 
eol = unchar(datal4)); 


1x 
/% 
1x 
1x 
{x 


Maximum send packet size *” 

When 1 should time out */ 

Number of pads to send */ 
Padding character to send */ 

EOL character I must send */ 
Incoming data quote character *x/ 


quote = data{s5); 1x 
} 
/* 
x* fliushinput 
x 
* Dump all pending input to clear stacked up NACK'Ss. 
x (Implemented only for Berkeley Unix at this time). 
x/ 


#if UCB4X&( NO_FIONREAD) 
flushinput () 
{ 

long int count; 

long int ji; 


ioctl(ttyfd, FIONREAD, &count); 
if Ctcount) return; 


while (count) 
€ 


i = (count<sizeof(recpkt)) ? 
count : sizeof(recpkt); 
read(ttyfd, recpkt, ji); 
count -= i; 
} 
} 
#else 
flushinput() /*x Nuil version 


{3 . 
#endif /x UCB4X&( FIONREAD) */ 
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Number of bytes ready to read *x/ 
Number of bvtes to read in 100p */ 


See how many bytes pending read */ 
If zero, then no input to fiush x/ 


Loop till all are flushed x 


Read min of count and size of */ 
the read buffer *x/ 

Read a bunch */ 

Subtract from amount to read */ 


for non-Berkeley Unix x/ 


POUtINeSs 


ut 
“ 
# ani COM ji OpLIONS Showing proper svutax 

fike print Kith "Kermit: “ prepended 

like printmsuy if Iocal Kermit: sends a error PaCket 1? 

# Print contelits of error packet received from remits 
x L LS Le 
x PUInE sihfar tv of usage info and quit 


ERP 


{ 


note 
USE 


#itf UCBA4X 
printf("Usage: kermit c(lbe line baud esc.char) Cconnect mode)\n"): 
printfC'or: kermit s(diflb line baud) file {send mode) \n"): 
printfe"or: kermit rdiflilb line baud) (receive modern": 
#else 
printii"Usage: kermit cile line esc.char) CCONHEE LU morte ospr, 
printfso"or: kKermit s{difl line) file €sSend motie) pr": 
printf("or: kermit ridifli line) treceibve modern 
#endir 
eKIitC(1): 
} 
1x 
* print msg 
* Print message on standard output if not remote. 
*/ 
xVARARGS1 x / 
printmsg(fmt, al, a2, a, a4, a5) 
Char xfmt; 
{ 
if (fremote) 
{ 
printf("Kermit: ‘“); 
printf(fmt,al,a2.a3,a4,a5); 
printf(C"\n"); 
fflush(stdout ); /x force output CUTS needs it 2 
} 
} 
Lx 
xerror 
x 
* Print error message. 
x 
* _1f local, print error message with printmsg. 
x If remote, send an error packet with the message. 
x / 
/ x VARARGS 1 x / 
error(fmt, al, 42, a3, 34, a5) 
Char xfmt; 
{ 
Char msgi80): 
int len; 
if (remote) 
{ 
Sprintf(msy,fmt,al,a2,a3,a4,a5): /* Make it a string x, 
len + strlen(msg): 
. SpaCkKC'E',n,len,msg): {x Send the error packet 
else 
printmsg(fmt, al, a2, 43, 44, a5); 
return; 
} 
Î x 
* prerrpkt 
“ 
*_ Print contents of error packet received from remote host. 
x, 
PTerPpKI CMmSg) 
Char +msg; 
€ 
PFIDECFE"Rermir aborting with following error from FeMOUE host es noie 
return; AN gr | 
} 
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